home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / health.exe / HEALTH.FRM < prev    next >
Text File  |  1993-07-22  |  5KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form admit 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Nursing Admission Assessment"
  5.    ClientHeight    =   6765
  6.    ClientLeft      =   180
  7.    ClientTop       =   1380
  8.    ClientWidth     =   9480
  9.    FontTransparent =   0   'False
  10.    Height          =   7170
  11.    Left            =   120
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   6765
  16.    ScaleWidth      =   9480
  17.    Tag             =   "cover"
  18.    Top             =   1035
  19.    Width           =   9600
  20.    Begin Timer Timer1 
  21.       Left            =   1800
  22.       Top             =   960
  23.    End
  24.    Begin SSPanel Panel3D1 
  25.       BackColor       =   &H00C0C0C0&
  26.       BevelInner      =   1  'Inset
  27.       BevelWidth      =   4
  28.       BorderWidth     =   5
  29.       Caption         =   "             COMMUNITY MEMORIAL                          HEALTHCENTER              Nursing Admission Assessment"
  30.       Font3D          =   4  'Inset w/heavy shading
  31.       FontBold        =   -1  'True
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Serif"
  34.       FontSize        =   24
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       ForeColor       =   &H00000000&
  38.       Height          =   6855
  39.       Left            =   0
  40.       Outline         =   -1  'True
  41.       TabIndex        =   0
  42.       Top             =   0
  43.       Width           =   9615
  44.       Begin PictureBox Picture1 
  45.          BackColor       =   &H00C0C0C0&
  46.          BorderStyle     =   0  'None
  47.          DrawMode        =   6  'Invert
  48.          FontBold        =   -1  'True
  49.          FontItalic      =   0   'False
  50.          FontName        =   "MS Serif"
  51.          FontSize        =   9.75
  52.          FontStrikethru  =   0   'False
  53.          FontUnderline   =   0   'False
  54.          ForeColor       =   &H00FF0000&
  55.          Height          =   2055
  56.          Left            =   3720
  57.          Picture         =   HEALTH.FRX:0000
  58.          ScaleHeight     =   2055
  59.          ScaleWidth      =   1575
  60.          TabIndex        =   1
  61.          Top             =   4560
  62.          Width           =   1575
  63.       End
  64.       Begin PictureBox Picture2 
  65.          AutoSize        =   -1  'True
  66.          BackColor       =   &H00C0C0C0&
  67.          BorderStyle     =   0  'None
  68.          Height          =   480
  69.          Left            =   4080
  70.          Picture         =   HEALTH.FRX:1ABC
  71.          ScaleHeight     =   480
  72.          ScaleWidth      =   480
  73.          TabIndex        =   2
  74.          Top             =   1200
  75.          Width           =   480
  76.       End
  77.    End
  78. End
  79.  
  80. Sub Form_Load ()
  81. SCREEN.MOUSEPOINTER = 11
  82. ' hard code for testing
  83. patientID(1) = pid1
  84. patientID(2) = pid2
  85. patientID(3) = pid3
  86. '*********************
  87. admit.Move -SCREEN.width - 10, 0, SCREEN.width, SCREEN.height
  88. panel3d1.Move admit.scaleleft, admit.scaletop, admit.scalewidth, admit.scaleheight
  89. panel3d1.caption = MainCompanyCaption$
  90. picture1.Move (admit.scalewidth - picture1.width) / 2, 3 * admit.height / 4 - picture1.height / 2
  91. picture2.Move (admit.scalewidth - picture2.width) / 2, admit.height / 4
  92.             admit.Move 0, 0
  93.             admit.picture1.autoredraw = -1
  94.             admit.picture1.Scale (0, 0)-(3, 4)
  95.             admit.picture1.currentx = .6
  96.             admit.picture1.currenty = 1.2
  97.             admit.picture1.Print "PLEASE"
  98.             admit.picture1.currentx = .7
  99.             admit.picture1.currenty = 1.8
  100.             admit.picture1.Print "WAIT:"
  101.             admit.picture1.currentx = .94
  102.             admit.picture1.currenty = 2.5
  103.             admit.picture1.Print "I'M"
  104.             admit.picture1.currentx = .5
  105.             admit.picture1.currenty = 2.95
  106.             admit.picture1.Print "LOADING"
  107.  
  108. admit.timer1.interval = 1
  109. admit.timer1.enabled = -1
  110. End Sub
  111.  
  112. Sub Picture1_Click ()
  113. idform.Show
  114. admit.Hide
  115. End Sub
  116.  
  117. Sub Picture1_DblClick ()
  118. picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
  119. End Sub
  120.  
  121. Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  122. picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
  123. End Sub
  124.  
  125. Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  126. picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
  127. End Sub
  128.  
  129. Sub Timer1_Timer ()
  130. Static secondtime As Integer
  131.  
  132. secondtime = secondtime + 1
  133.     If secondtime = 1 Then
  134.     Load assess2
  135.     Load assess3
  136.     End If
  137. timer1.interval = 10
  138.  
  139.     If secondtime = 2 Then
  140.     idform.Show
  141.     admit.Hide
  142.     timer1.enabled = 0
  143.     secondtime = 0
  144.     End If
  145.  
  146. End Sub
  147.  
  148.